home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swags_z.zip / SOUND.SWG / 0008_SBDEMO.PAS.pas < prev    next >
Pascal/Delphi Source File  |  1993-05-28  |  510b  |  22 lines

  1. {$M 16384,0,0}
  2.  
  3. Program Demo; { to demonstrate the SBVoice Unit }
  4.               { Copyright 1991 Amit K. Mathur, Windsor, Ontario }
  5.  
  6. Uses SBVoice;
  7.  
  8. begin
  9. if SBFound then begin
  10.   if paramcount=1 then begin
  11.     LoadVoice(ParamStr(1),0,0);
  12.     sb_Output(seg(SoundFile),ofs(SoundFile)+26);
  13.     Repeat
  14.      Write('Ha');
  15.     Until StatusWord=0;
  16.   end else
  17.     Writeln('Usage: DEMO [d:\path\]Filename.voc');
  18.   end else
  19.   Writeln('SoundBlaster Init Error.  SoundBlaster v1.00 not Found.');
  20. end.
  21.  
  22.